home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / taropyon / hewin / ccisrc / cciapl.cci < prev    next >
Text File  |  1993-11-30  |  2KB  |  104 lines
  1. #ifndef    _CCI_APL_IGN
  2. int        TST_aplOpen(char *aplJob)
  3. {
  4.     APL_setAplWinSize(aplJob, 420, 300);
  5.     APL_setAplJobName(aplJob,"TEST APPLICATION");
  6.     return (NORMAL);
  7. }
  8.  
  9. int        TST_aplClose(char *aplJob)
  10. {
  11.     return (NORMAL);
  12. }
  13.  
  14. int        TST_aplStart(char *aplJob)
  15. {
  16.     return (NORMAL);
  17. }
  18.  
  19. int        TST_aplEnd(char *aplJob)
  20. {
  21.     return (NORMAL);
  22. }
  23.  
  24. int        TST_aplDsp(char *aplJob, int actFlag)
  25. {
  26.     int        x, y;
  27.     int        x1, y1, x2, y2;
  28.  
  29.     /* ウィンドゥの大きさを求める    */
  30.     x1 = APL_getWinFr(aplJob,0);
  31.     y1 = APL_getWinFr(aplJob,1);
  32.     x2 = APL_getWinFr(aplJob,2);
  33.     y2 = APL_getWinFr(aplJob,3);
  34.     APL_box (aplJob,x1+2, y1+2, x2-2, y2-2, 0,  1);
  35.     APL_boxf(aplJob,x1+4, y1+4, x2-4, y2-4, 0, 15);
  36.  
  37.     for ( x = x1+4; x < x2-4; x += 10 )
  38.         APL_box(aplJob,x,y1+4,x,y2-4,0,9);
  39.     for ( y = y1+4; y < y2-4; y += 10 )
  40.         APL_box(aplJob,x1+4,y,x2-4,y,0,9);
  41.  
  42.     y = y1 + 4;
  43.     APL_puts(aplJob, x1+4, y, 6,12, 0,15, "CCI MAKE APPLICATION");    y += 14;
  44.     APL_puts(aplJob, x1+4, y, 6,12, 0,15, "TEST WINDOW");            y += 14;
  45.  
  46.     return (NORMAL);
  47. }
  48.  
  49. int        TST_aplMsg(char *aplJob, char *aplMsg)
  50. {
  51.     return (APLCTRL_EVT_CONTINUE);    /* メッセージは受け付けない    */
  52. }
  53.  
  54.  
  55. int        TST_aplExec(char *aplJob)
  56. {
  57.     int        i;
  58.  
  59.     while ( 1 )
  60.     {    i = APL_evt_chk(aplJob);
  61.         switch ( i )
  62.         {    case    APLCTRL_EVT_ACTIVE:    /* active    */
  63.                 return (APLCTRL_EVT_ACTIVE);
  64.  
  65.             case    APLCTRL_EVT_CLOSE:    /* close    */
  66.                 return (APLCTRL_EVT_CLOSE);
  67.  
  68.             case    APLCTRL_EVT_EXIT:    /* exit        */
  69.                 return (APLCTRL_EVT_EXIT);
  70.  
  71.             case    APLCTRL_EVT_ICON:    /* icon        */
  72.                 return (APLCTRL_EVT_ICON);
  73.  
  74.             case    APLCTRL_EVT_MAIN_EXIT:    /* main exit */
  75.                 return (APLCTRL_EVT_MAIN_EXIT);
  76.         }
  77.     }
  78. }
  79.  
  80.  
  81. int        CCI_aplSysInit()
  82. {
  83.     int        aplType;
  84.     char    *aplCtrl;
  85.     char    *func[7];
  86.  
  87.     aplType = 128;
  88.     func[0] = "TST_aplOpen"  ;
  89.     func[1] = "TST_aplClose" ;
  90.     func[2] = "TST_aplDsp"   ;
  91.     func[3] = "TST_aplStart" ;
  92.     func[4] = "TST_aplEnd"   ;
  93.     func[5] = "TST_aplExec"  ;
  94.     func[6] = "TST_aplMsg"   ;
  95.     aplCtrl = APL_setAplCtrl( aplType, "TEST APPLICATION", func);
  96.  
  97.     return (NORMAL);
  98. }
  99.  
  100. int        CCI_aplSysTerm(int saveFlag)
  101. {    return (NORMAL);
  102. }
  103. #endif
  104.